home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / groff / 1.19.1 / tmac / trace.tmac < prev    next >
Encoding:
Text File  |  2005-10-13  |  2.0 KB  |  112 lines
  1. .\" trace.tmac
  2. .\"
  3. .\" Load this before a macro package that you want to trace.
  4. .
  5. .nr _C \n(.C
  6. .cp 0
  7. .
  8. .do ds !!sp " \"
  9. .
  10. .eo
  11. .
  12. .rn de !!de
  13. .rn de1 !!de1
  14. .
  15. .
  16. .!!de de
  17. .  do ecs
  18. .  ec
  19. .  do !!de \$1
  20. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** de trace enter: \\$0 \\$@
  21. .    el .do tm1 "\\*[!!sp]*** de trace enter \$1: \\$0 \\$@
  22. .    do as !!sp " \"
  23. .    do nop \\*[!!\$1]\\
  24. .    do substring !!sp 1
  25. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
  26. .    el .do tm1 "\\*[!!sp]*** trace exit \$1: \\$0 \\$@
  27. \..
  28. .
  29. .  do ds !!d1 !!\$1
  30. .  do ds !!d2 \$2
  31. .
  32. .  do ecr
  33. .  do dei !!d1 !!d2
  34. ..
  35. .
  36. .!!de de1
  37. .  do ecs
  38. .  ec
  39. .  do !!de \$1
  40. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** de1 trace enter: \\$0 \\$@
  41. .    el .do tm1 "\\*[!!sp]*** de1 trace enter \$1: \\$0 \\$@
  42. .    do as !!sp " \"
  43. .    do nop \\*[!!\$1]\\
  44. .    do substring !!sp 1
  45. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
  46. .    el .do tm1 "\\*[!!sp]*** trace exit \$1: \\$0 \\$@
  47. \..
  48. .
  49. .  do ds !!d1 !!\$1
  50. .  do ds !!d2 \$2
  51. .
  52. .  do ecr
  53. .  do dei1 !!d1 !!d2
  54. ..
  55. .
  56. .rn am !!am
  57. .rn am1 !!am1
  58. .
  59. .!!de am
  60. .  do ecs
  61. .  ec
  62. .  do !!am \$1
  63. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** am trace enter: \\$0 \\$@
  64. .    el .do tm1 "\\*[!!sp]*** am trace enter \$1: \\$0 \\$@
  65. .    as !!sp " \"
  66. .    do nop \\*[!!\$1]\\
  67. .    do substring !!sp 1
  68. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
  69. .    el .do tm1 "\\*[!!sp]*** trace exit \$1: \\$0 \\$@
  70. \..
  71. .
  72. .  do ds !!a1 !!\$1
  73. .  do ds !!a2 \$2
  74. .
  75. .  do ecr
  76. .  do ami !!a1 !!a2
  77. ..
  78. .
  79. .!!de am1
  80. .  do ecs
  81. .  ec
  82. .  do !!am \$1
  83. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** am1 trace enter: \\$0 \\$@
  84. .    el .do tm1 "\\*[!!sp]*** am1 trace enter \$1: \\$0 \\$@
  85. .    as !!sp " \"
  86. .    do nop \\*[!!\$1]\\
  87. .    do substring !!sp 1
  88. .    ie "\$1"\\$0" .do tm1 "\\*[!!sp]*** trace exit: \\$0 \\$@
  89. .    el .do tm1 "\\*[!!sp]*** trace exit \$1: \\$0 \\$@
  90. \..
  91. .
  92. .  do ds !!a1 !!\$1
  93. .  do ds !!a2 \$2
  94. .
  95. .  do ecr
  96. .  do ami1 !!a1 !!a2
  97. ..
  98. .
  99. .rn return !!return
  100. .
  101. .!!de1 return
  102. .  substring !!sp 1
  103. .  tm1 "\*[!!sp]*** return
  104. .  !!return twice
  105. ..
  106. .
  107. .ec
  108. .
  109. .cp \n(_C
  110. .
  111. .\" EOF
  112.